#_________________________________________________________________________________________________________________________________
#_________________________________________________________________________________________________________________________________
#_________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
inherit GDD_Navigator_PM_U PM_Universal
#___________________________________________________________________________________________________________________________________________
method GDD_Navigator_PM_U constructor {name descr args} {
 this inherited $name $descr
   this set_nb_max_mothers 1
   this set_cmd_placement {}
 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC GDD_Navigator_PM_U [L_methodes_set_GDD_Navigator] {}          {}
Methodes_get_LC GDD_Navigator_PM_U [L_methodes_get_GDD_Navigator] {$this(FC)}

